home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / MenuGrabber.asc < prev    next >
Text File  |  1998-11-11  |  984b  |  42 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Open
  13. '  -Wb Current Window
  14. '  -Wb Wind Open 
  15. '  -Wb Wind Base 
  16. '  -Wb Get Menu Adr  
  17. '  -Wb Menu To Window  
  18. '  -Wb Screen Front  
  19. '  -Get Msg  
  20. '  -Wb Wind Close
  21. '
  22. ' Adresse de l'écran du Wb 
  23. WB=Wb Open
  24. ' Adresse de la fenetre active 
  25. CW=Wb Current Window
  26. ' Ouvre une fenetre dans le Wb 
  27. Wb Wind Open 0 To 30,30,300,100,2+4+8
  28. W=Wb Wind Base
  29. 'Structure du menu de la fenetre active
  30. M=Wb Get Menu Adr(CW)
  31. ' Affecte le menu a la nouvelle fenetre
  32. SS=Wb Menu To Window(W,M)
  33. '
  34. Amos To Back 
  35. Wait 5
  36. Wb Screen Front WB
  37. 'Wait Key  
  38. While Get Msg(W)<>$200 : Wend 
  39. If W>0 Then Wb Wind Close W
  40. Wait 5
  41. Amos To Front 
  42.